home *** CD-ROM | disk | FTP | other *** search
/ J-Mac Electronics & Home Comics / J-Mac Electronics & Home Comics.iso / mac / J-MAC / G19F / G19_SUDO.Dxr / 00054.ls < prev    next >
Encoding:
Text File  |  1998-01-22  |  2.3 KB  |  116 lines
  1. global g_no, jumplistkey
  2.  
  3. on startMovie
  4.   set mycursor to [1, 2]
  5.   set the cursor of sprite 11 to mycursor
  6.   set the cursor of sprite 12 to mycursor
  7.   set the cursor of sprite 14 to mycursor
  8.   set the cursor of sprite 15 to mycursor
  9.   set the cursor of sprite 16 to mycursor
  10.   set the cursor of sprite 17 to mycursor
  11.   set the cursor of sprite 18 to mycursor
  12.   set the cursor of sprite 19 to mycursor
  13.   set jumplistkey to ["G1", "G2", "G3", "G4", "G5", "G6", "G7", "G8", "G9"]
  14.   set volset to the soundLevel
  15.   if the soundEnabled = 0 then
  16.     set the soundEnabled to 1
  17.   end if
  18. end
  19.  
  20. on donext
  21.   if (g_no + 1) = 10 then
  22.     set g_no to 0
  23.   end if
  24.   go(getAt(jumplistkey, g_no + 1))
  25. end
  26.  
  27. on doback
  28.   if (g_no - 1) = 0 then
  29.     set g_no to 10
  30.   end if
  31.   go(getAt(jumplistkey, g_no - 1))
  32. end
  33.  
  34. on doexit
  35.   sound stop 1
  36.   go("M2", "@::JMACMENU")
  37. end
  38.  
  39. on crtopen
  40.   puppetSprite(6, 1)
  41.   repeat while the stillDown
  42.     set the memberNum of sprite 6 to 14
  43.     updateStage()
  44.   end repeat
  45.   set the memberNum of sprite 6 to 13
  46.   updateStage()
  47.   puppetSprite(6, 0)
  48. end
  49.  
  50. on crtclose
  51.   puppetSprite(7, 1)
  52.   repeat while the stillDown
  53.     set the memberNum of sprite 7 to 16
  54.     updateStage()
  55.   end repeat
  56.   set the memberNum of sprite 7 to 15
  57.   updateStage()
  58.   puppetSprite(7, 0)
  59. end
  60.  
  61. on crtback
  62.   puppetSprite(21, 1)
  63.   repeat while the stillDown
  64.     set the memberNum of sprite 21 to 24
  65.     updateStage()
  66.   end repeat
  67.   set the memberNum of sprite 21 to 23
  68.   updateStage()
  69.   puppetSprite(21, 0)
  70. end
  71.  
  72. on crtnext
  73.   puppetSprite(20, 1)
  74.   repeat while the stillDown
  75.     set the memberNum of sprite 20 to 22
  76.     updateStage()
  77.   end repeat
  78.   set the memberNum of sprite 20 to 21
  79.   updateStage()
  80.   puppetSprite(20, 0)
  81. end
  82.  
  83. on crtclose2
  84.   puppetSprite(22, 1)
  85.   repeat while the stillDown
  86.     set the memberNum of sprite 22 to 26
  87.     updateStage()
  88.   end repeat
  89.   set the memberNum of sprite 22 to 25
  90.   updateStage()
  91.   puppetSprite(22, 0)
  92. end
  93.  
  94. on crtzoomin
  95.   puppetSprite(23, 1)
  96.   repeat while the stillDown
  97.     set the memberNum of sprite 23 to 28
  98.     updateStage()
  99.   end repeat
  100.   set the memberNum of sprite 23 to 27
  101.   updateStage()
  102.   puppetSprite(23, 0)
  103. end
  104.  
  105. on crtzoomout
  106.   puppetSprite(23, 1)
  107.   repeat while the stillDown
  108.     set the memberNum of sprite 23 to 30
  109.     updateStage()
  110.   end repeat
  111.   set the memberNum of sprite 23 to 29
  112.   updateStage()
  113.   puppetSprite(23, 0)
  114.   puppetSprite(1, 0)
  115. end
  116.